home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 February / PCWorld_2000-02_cd.bin / Software / Vyzkuste / xsetup / _SETUP.2 / Group3 / XQ IE Outlook Express 2.xpl < prev    next >
Text File  |  1999-09-08  |  2KB  |  71 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="3"
  3. "COUNT"="1"
  4. "UIPATH"="Internet\Outlook Express"
  5. "NAME"="Address Book Folder"
  6. "VERSION"="1.03"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Address Book"
  9. "DATA 1"="WAB Files (*.wab)|*.wab"
  10. "DESCRIPTION 1"="If you do not like the default location of your Outlook Express Address Book, you can change it here."
  11. "DESCRIPTION 2"="Please select the new location for the address book (WAB) file and the file will be moved there."
  12. "DESCRIPTION 3"="Remember to exit Outlook Express before applying the change!"
  13. "AUTHOR"="Xteq Systems"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  16. "COMMENT 2"=" "
  17. "COMMENT 3"="Thanks to Bj÷rn Teichmann and Marco Schelling for this setting."
  18. "COMMENT 4"="Thanks to James_R_Morris_Jr [James_R_Morris_Jr@ims.msn.com] for the spelling correction."
  19.  
  20.  
  21.  
  22. 'sPath="HKCU\Software\Microsoft\WAB\WAB4_1\Wab File Name\"
  23. sPath="HKCU\Software\Microsoft\WAB\WAB4\Wab File Name\"
  24. sPath2=sPath & "@"
  25. sOld=""
  26. Sub Plugin_Initialize 
  27.  if RegPathExists(sPath) then
  28.   s=RegReadValue(sPath2)
  29.   SetUIElement 1,s
  30.  
  31.   sOld=s
  32.  else
  33.   Disable
  34.  end if
  35. End Sub
  36.  
  37. Sub Plugin_CheckData(ElementIndex)
  38. End Sub
  39.  
  40. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  41.  s=GetUIElement(1)
  42.  
  43.  if s<>"" then
  44.   if UCase(right(s,3))<>"WAB" then
  45.    Call MsgError("Please enter the name and path of the WAB file, for example C:\DATA\ADDRB.WAB. Do not forgot the WAB extension.") 
  46.   else
  47.    if FileExists(s)=true then
  48.     Call MsgError("The selected file already exists! Please choose a different name.")
  49.    else
  50.     'looks OK, let's try it
  51.        
  52.     Call FileCopy(sOld,s)
  53.     Call RegWriteValue(sPath2,s,1)
  54.  
  55.     Call FileDelete(sOld)
  56.  
  57.     Call MsgInformation("File has been moved to " & s & ".")
  58.    end if
  59.   end if
  60.  else
  61.   Call MsgError("Please supply a location for the WAB file!")
  62.  end if
  63. End Sub
  64.  
  65.  
  66. Sub Plugin_Terminate 
  67. End Sub
  68.  
  69.  
  70.  
  71.